home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Prog
/
M
/
LSP⁄C.cpt
/
c.c
next >
Wrap
Text File
|
1989-01-03
|
390b
|
28 lines
pascal void
crfillptr(dst,dstlen,ch)
register char *dst;
long dstlen;
short ch; /* pascal CHARs are two bytes */
{
register char *limit,_ch;
_ch = ch;
limit = dst + dstlen;
while (dst < limit)
*dst++ = _ch;
}
pascal void
cfillptr(dst,dstlen,ch)
char *dst;
long dstlen;
short ch;
{
char *limit,_ch;
_ch = ch;
limit = dst + dstlen;
while (dst < limit)
*dst++ = _ch;
}